home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 051-060 / amok52 / gadgeted / txt / menu.mod < prev    next >
Text File  |  1993-11-04  |  17KB  |  766 lines
  1. (*----------------------------------------------------------------------
  2.   :Program.    Menu.mod
  3.   :Contents.   Aufbau des Menus, Prozeduren zum Ein-/Ausschalten des Menüs
  4.   :Author.     Hubert Bildstein
  5.   :Copyright.  Public Domain
  6.   :Language.   Modula-2
  7.   :Translator. M2Amiga V3.3d
  8.   :History.    V1.0   5.12.1990
  9.   :Remark.     Grundstruktur erstellt mit Menugenerator Amok#37
  10. ----------------------------------------------------------------------*)
  11.  
  12. IMPLEMENTATION MODULE Menu;
  13.  
  14. FROM SYSTEM    IMPORT ADR, ADDRESS, LONGSET;
  15. FROM Intuition IMPORT MenuItem,Menu,MenuItemFlags,MenuItemFlagSet,
  16.                       SetMenuStrip, ClearMenuStrip, WindowPtr, IntuiText;
  17.  
  18. FROM Graphics  IMPORT jam1;
  19.  
  20. VAR MenuWindowPtr  : WindowPtr;
  21.     Menustrip      : ARRAY[1..4] OF Menu;
  22.     Item           : ARRAY[1..33] OF MenuItem;
  23.     ItemText       : ARRAY[1..33] OF IntuiText;
  24.     ok             : BOOLEAN;
  25.  
  26.  
  27. PROCEDURE InitMenu (WPtr : ADDRESS);
  28.  
  29. BEGIN
  30.  
  31. WITH Menustrip[1] DO
  32.   nextMenu:=ADR(Menustrip[2]);
  33.   leftEdge:=0; topEdge:=0;
  34.   width:=68; height:=9;
  35.   flags:={0};
  36.   menuName:=ADR('Project');
  37.   firstItem:=ADR(Item[1]);
  38. END (* WITH *);
  39.  
  40. WITH Menustrip[2] DO
  41.   nextMenu:=ADR(Menustrip[3]);
  42.   leftEdge:=108; topEdge:=0;
  43.   width:=44; height:=9;
  44.   flags:={0};
  45.   menuName:=ADR('Edit');
  46.   firstItem:=ADR(Item[9]);
  47. END (* WITH *);
  48.  
  49. WITH Menustrip[3] DO
  50.   nextMenu:=ADR(Menustrip[4]);
  51.   leftEdge:=192; topEdge:=0;
  52.   width:=68; height:=9;
  53.   flags:={0};
  54.   menuName:=ADR('Gadgets');
  55.   firstItem:=ADR(Item[13]);
  56. END (* WITH *);
  57.  
  58. WITH Menustrip[4] DO
  59.   nextMenu:=NIL;
  60.   leftEdge:=300; topEdge:=0;
  61.   width:=92; height:=9;
  62.   flags:={0};
  63.   menuName:=ADR('Attributes');
  64.   firstItem:=ADR(Item[23]);
  65. END (* WITH *);
  66.  
  67. WITH Item[1] DO
  68.   nextItem:=ADR(Item[2]);
  69.   leftEdge:=0; topEdge:=0;
  70.   width:=130; height:=9;
  71.   flags:=MenuItemFlagSet{highComp,itemText,itemEnabled,commSeq};
  72.   mutualExclude:=LONGSET{};
  73.   itemFill:=ADR(ItemText[1]);
  74.   selectFill:=NIL;
  75.   command:="L";
  76.   subItem:=NIL;
  77. END (* WITH *);
  78.  
  79. WITH Item[2] DO
  80.   nextItem:=ADR(Item[3]);
  81.   leftEdge:=0; topEdge:=10;
  82.   width:=130; height:=9;
  83.   flags:=MenuItemFlagSet{highComp,itemText,itemEnabled,commSeq};
  84.   mutualExclude:=LONGSET{};
  85.   itemFill:=ADR(ItemText[2]);
  86.   selectFill:=NIL;
  87.   command:="S";
  88.   subItem:=NIL;
  89. END (* WITH *);
  90.  
  91. WITH Item[3] DO
  92.   nextItem:=ADR(Item[4]);
  93.   leftEdge:=0; topEdge:=20;
  94.   width:=130; height:=9;
  95.   flags:=MenuItemFlagSet{highComp,itemText,itemEnabled,commSeq};
  96.   mutualExclude:=LONGSET{};
  97.   itemFill:=ADR(ItemText[3]);
  98.   selectFill:=NIL;
  99.   command:="A";
  100.   subItem:=NIL;
  101. END (* WITH *);
  102.  
  103. WITH Item[4] DO
  104.   nextItem:=ADR(Item[5]);
  105.   leftEdge:=0; topEdge:=30;
  106.   width:=130; height:=9;
  107.   flags:=MenuItemFlagSet{highComp,itemText,itemEnabled,commSeq};
  108.   mutualExclude:=LONGSET{};
  109.   itemFill:=ADR(ItemText[4]);
  110.   selectFill:=NIL;
  111.   command:="N";
  112.   subItem:=NIL;
  113. END (* WITH *);
  114.  
  115. WITH Item[5] DO
  116.   nextItem:=ADR(Item[6]);
  117.   leftEdge:=0; topEdge:=40;
  118.   width:=130; height:=9;
  119.   flags:=MenuItemFlagSet{highComp,itemText};
  120.   mutualExclude:=LONGSET{};
  121.   itemFill:=ADR(ItemText[5]);
  122.   selectFill:=NIL;
  123.   subItem:=NIL;
  124. END (* WITH *);
  125.  
  126. WITH Item[6] DO
  127.   nextItem:=ADR(Item[7]);
  128.   leftEdge:=0; topEdge:=50;
  129.   width:=130; height:=9;
  130.   flags:=MenuItemFlagSet{highComp,itemText,itemEnabled,commSeq};
  131.   mutualExclude:=LONGSET{};
  132.   itemFill:=ADR(ItemText[6]);
  133.   selectFill:=NIL;
  134.   command:="M";
  135.   subItem:=NIL;
  136. END (* WITH *);
  137.  
  138. WITH Item[7] DO
  139.   nextItem:=ADR(Item[8]);
  140.   leftEdge:=0; topEdge:=60;
  141.   width:=130; height:=9;
  142.   flags:=MenuItemFlagSet{highComp,itemText};
  143.   mutualExclude:=LONGSET{};
  144.   itemFill:=ADR(ItemText[7]);
  145.   selectFill:=NIL;
  146.   subItem:=NIL;
  147. END (* WITH *);
  148.  
  149. WITH Item[8] DO
  150.   nextItem:=NIL;
  151.   leftEdge:=0; topEdge:=70;
  152.   width:=130; height:=9;
  153.   flags:=MenuItemFlagSet{highComp,itemText,itemEnabled};
  154.   mutualExclude:=LONGSET{};
  155.   itemFill:=ADR(ItemText[8]);
  156.   selectFill:=NIL;
  157.   subItem:=NIL;
  158. END (* WITH *);
  159.  
  160. WITH Item[9] DO
  161.   nextItem:=ADR(Item[10]);
  162.   leftEdge:=0; topEdge:=0;
  163.   width:=104; height:=9;
  164.   flags:=MenuItemFlagSet{highComp,itemText,itemEnabled};
  165.   mutualExclude:=LONGSET{};
  166.   itemFill:=ADR(ItemText[9]);
  167.   selectFill:=NIL;
  168.   subItem:=NIL;
  169. END (* WITH *);
  170.  
  171. WITH Item[10] DO
  172.   nextItem:=ADR(Item[11]);
  173.   leftEdge:=0; topEdge:=10;
  174.   width:=104; height:=9;
  175.   flags:=MenuItemFlagSet{highComp,itemText,itemEnabled};
  176.   mutualExclude:=LONGSET{};
  177.   itemFill:=ADR(ItemText[10]);
  178.   selectFill:=NIL;
  179.   subItem:=NIL;
  180. END (* WITH *);
  181.  
  182. WITH Item[11] DO
  183.   nextItem:=ADR(Item[12]);
  184.   leftEdge:=0; topEdge:=20;
  185.   width:=104; height:=9;
  186.   flags:=MenuItemFlagSet{highComp,itemText,itemEnabled};
  187.   mutualExclude:=LONGSET{};
  188.   itemFill:=ADR(ItemText[11]);
  189.   selectFill:=NIL;
  190.   subItem:=NIL;
  191. END (* WITH *);
  192.  
  193. WITH Item[12] DO
  194.   nextItem:=NIL;
  195.   leftEdge:=0; topEdge:=30;
  196.   width:=104; height:=9;
  197.   flags:=MenuItemFlagSet{highComp,itemText,itemEnabled};
  198.   mutualExclude:=LONGSET{};
  199.   itemFill:=ADR(ItemText[12]);
  200.   selectFill:=NIL;
  201.   subItem:=NIL;
  202. END (* WITH *);
  203.  
  204. WITH Item[13] DO
  205.   nextItem:=ADR(Item[16]);
  206.   leftEdge:=0; topEdge:=0;
  207.   width:=115; height:=9;
  208.   flags:=MenuItemFlagSet{highComp,itemText,itemEnabled};
  209.   mutualExclude:=LONGSET{};
  210.   itemFill:=ADR(ItemText[13]);
  211.   selectFill:=NIL;
  212.   subItem:=ADR(Item[14]);
  213. END (* WITH *);
  214.  
  215. WITH Item[14] DO
  216.   nextItem:=ADR(Item[15]);
  217.   leftEdge:=114; topEdge:=-2;
  218.   width:=141; height:=9;
  219.   flags:=MenuItemFlagSet{highComp,itemText,itemEnabled};
  220.   mutualExclude:=LONGSET{};
  221.   itemFill:=ADR(ItemText[14]);
  222.   selectFill:=NIL;
  223.   subItem:=NIL;
  224. END (* WITH *);
  225.  
  226. WITH Item[15] DO
  227.   nextItem:=NIL;
  228.   leftEdge:=114; topEdge:=8;
  229.   width:=141; height:=9;
  230.   flags:=MenuItemFlagSet{highComp,itemText,itemEnabled};
  231.   mutualExclude:=LONGSET{};
  232.   itemFill:=ADR(ItemText[15]);
  233.   selectFill:=NIL;
  234.   subItem:=NIL;
  235. END (* WITH *);
  236.  
  237. WITH Item[16] DO
  238.   nextItem:=ADR(Item[19]);
  239.   leftEdge:=0; topEdge:=10;
  240.   width:=115; height:=9;
  241.   flags:=MenuItemFlagSet{highComp,itemText,itemEnabled};
  242.   mutualExclude:=LONGSET{};
  243.   itemFill:=ADR(ItemText[16]);
  244.   selectFill:=NIL;
  245.   subItem:=ADR(Item[17]);
  246. END (* WITH *);
  247.  
  248. WITH Item[17] DO
  249.   nextItem:=ADR(Item[18]);
  250.   leftEdge:=114; topEdge:=-4;
  251.   width:=127; height:=9;
  252.   flags:=MenuItemFlagSet{highComp,itemText,itemEnabled};
  253.   mutualExclude:=LONGSET{};
  254.   itemFill:=ADR(ItemText[17]);
  255.   selectFill:=NIL;
  256.   subItem:=NIL;
  257. END (* WITH *);
  258.  
  259. WITH Item[18] DO
  260.   nextItem:=NIL;
  261.   leftEdge:=114; topEdge:=6;
  262.   width:=127; height:=9;
  263.   flags:=MenuItemFlagSet{highComp,itemText,itemEnabled};
  264.   mutualExclude:=LONGSET{};
  265.   itemFill:=ADR(ItemText[18]);
  266.   selectFill:=NIL;
  267.   subItem:=NIL;
  268. END (* WITH *);
  269.  
  270. WITH Item[19] DO
  271.   nextItem:=NIL;
  272.   leftEdge:=0; topEdge:=20;
  273.   width:=115; height:=9;
  274.   flags:=MenuItemFlagSet{highComp,itemText,itemEnabled};
  275.   mutualExclude:=LONGSET{};
  276.   itemFill:=ADR(ItemText[19]);
  277.   selectFill:=NIL;
  278.   subItem:=ADR(Item[20]);
  279. END (* WITH *);
  280.  
  281. WITH Item[20] DO
  282.   nextItem:=ADR(Item[21]);
  283.   leftEdge:=114; topEdge:=-6;
  284.   width:=126; height:=9;
  285.   flags:=MenuItemFlagSet{highComp,itemText,itemEnabled};
  286.   mutualExclude:=LONGSET{};
  287.   itemFill:=ADR(ItemText[20]);
  288.   selectFill:=NIL;
  289.   subItem:=NIL;
  290. END (* WITH *);
  291.  
  292. WITH Item[21] DO
  293.   nextItem:=ADR(Item[22]);
  294.   leftEdge:=114; topEdge:=4;
  295.   width:=126; height:=9;
  296.   flags:=MenuItemFlagSet{highComp,itemText,itemEnabled};
  297.   mutualExclude:=LONGSET{};
  298.   itemFill:=ADR(ItemText[21]);
  299.   selectFill:=NIL;
  300.   subItem:=NIL;
  301. END (* WITH *);
  302.  
  303. WITH Item[22] DO
  304.   nextItem:=NIL;
  305.   leftEdge:=114; topEdge:=14;
  306.   width:=126; height:=9;
  307.   flags:=MenuItemFlagSet{highComp,itemText,itemEnabled};
  308.   mutualExclude:=LONGSET{};
  309.   itemFill:=ADR(ItemText[22]);
  310.   selectFill:=NIL;
  311.   subItem:=NIL;
  312. END (* WITH *);
  313.  
  314. WITH Item[23] DO
  315.   nextItem:=ADR(Item[24]);
  316.   leftEdge:=0; topEdge:=0;
  317.   width:=179; height:=9;
  318.   flags:=MenuItemFlagSet{highComp,itemText,itemEnabled};
  319.   mutualExclude:=LONGSET{};
  320.   itemFill:=ADR(ItemText[23]);
  321.   selectFill:=NIL;
  322.   subItem:=NIL;
  323. END (* WITH *);
  324.  
  325. WITH Item[24] DO
  326.   nextItem:=ADR(Item[25]);
  327.   leftEdge:=0; topEdge:=10;
  328.   width:=179; height:=9;
  329.   flags:=MenuItemFlagSet{highComp,itemText};
  330.   mutualExclude:=LONGSET{};
  331.   itemFill:=ADR(ItemText[24]);
  332.   selectFill:=NIL;
  333.   subItem:=NIL;
  334. END (* WITH *);
  335.  
  336. WITH Item[25] DO
  337.   nextItem:=ADR(Item[26]);
  338.   leftEdge:=0; topEdge:=20;
  339.   width:=179; height:=9;
  340.   flags:=MenuItemFlagSet{highComp,itemText,itemEnabled,checkIt,commSeq};
  341.   mutualExclude:=LONGSET{3,4};
  342.   itemFill:=ADR(ItemText[25]);
  343.   selectFill:=NIL;
  344.   command:="O";
  345.   subItem:=NIL;
  346. END (* WITH *);
  347.  
  348. WITH Item[26] DO
  349.   nextItem:=ADR(Item[27]);
  350.   leftEdge:=0; topEdge:=30;
  351.   width:=179; height:=9;
  352.   flags:=MenuItemFlagSet{highComp,itemText,itemEnabled,checkIt,checked,commSeq};
  353.   mutualExclude:=LONGSET{2,4};
  354.   itemFill:=ADR(ItemText[26]);
  355.   selectFill:=NIL;
  356.   command:="I";
  357.   subItem:=NIL;
  358. END (* WITH *);
  359.  
  360. WITH Item[27] DO
  361.   nextItem:=ADR(Item[28]);
  362.   leftEdge:=0; topEdge:=40;
  363.   width:=179; height:=9;
  364.   flags:=MenuItemFlagSet{highComp,itemText,itemEnabled,checkIt,commSeq};
  365.   mutualExclude:=LONGSET{2,3};
  366.   itemFill:=ADR(ItemText[27]);
  367.   selectFill:=NIL;
  368.   command:="D";
  369.   subItem:=NIL;
  370. END (* WITH *);
  371.  
  372. WITH Item[28] DO
  373.   nextItem:=ADR(Item[29]);
  374.   leftEdge:=0; topEdge:=50;
  375.   width:=179; height:=9;
  376.   flags:=MenuItemFlagSet{highComp,itemText};
  377.   mutualExclude:=LONGSET{};
  378.   itemFill:=ADR(ItemText[28]);
  379.   selectFill:=NIL;
  380.   subItem:=NIL;
  381. END (* WITH *);
  382.  
  383. WITH Item[29] DO
  384.   nextItem:=ADR(Item[30]);
  385.   leftEdge:=0; topEdge:=60;
  386.   width:=179; height:=9;
  387.   flags:=MenuItemFlagSet{highComp,itemText,itemEnabled,checkIt,checked,commSeq};
  388.   mutualExclude:=LONGSET{7,8};
  389.   itemFill:=ADR(ItemText[29]);
  390.   selectFill:=NIL;
  391.   command:="E";
  392.   subItem:=NIL;
  393. END (* WITH *);
  394.  
  395. WITH Item[30] DO
  396.   nextItem:=ADR(Item[31]);
  397.   leftEdge:=0; topEdge:=70;
  398.   width:=179; height:=9;
  399.   flags:=MenuItemFlagSet{highComp,itemText,itemEnabled,checkIt,commSeq};
  400.   mutualExclude:=LONGSET{6,8};
  401.   itemFill:=ADR(ItemText[30]);
  402.   selectFill:=NIL;
  403.   command:="C";
  404.   subItem:=NIL;
  405. END (* WITH *);
  406.  
  407. WITH Item[31] DO
  408.   nextItem:=ADR(Item[32]);
  409.   leftEdge:=0; topEdge:=80;
  410.   width:=179; height:=9;
  411.   flags:=MenuItemFlagSet{highComp,itemText,itemEnabled,checkIt,commSeq};
  412.   mutualExclude:=LONGSET{6,7};
  413.   itemFill:=ADR(ItemText[31]);
  414.   selectFill:=NIL;
  415.   command:="R";
  416.   subItem:=NIL;
  417. END (* WITH *);
  418.  
  419. WITH Item[32] DO
  420.   nextItem:=ADR(Item[33]);
  421.   leftEdge:=0; topEdge:=90;
  422.   width:=179; height:=9;
  423.   flags:=MenuItemFlagSet{highComp,itemText};
  424.   mutualExclude:=LONGSET{};
  425.   itemFill:=ADR(ItemText[32]);
  426.   selectFill:=NIL;
  427.   subItem:=NIL;
  428. END (* WITH *);
  429.  
  430. WITH Item[33] DO
  431.   nextItem:=NIL;
  432.   leftEdge:=0; topEdge:=100;
  433.   width:=179; height:=9;
  434.   flags:=MenuItemFlagSet{highComp,itemText,itemEnabled};
  435.   mutualExclude:=LONGSET{};
  436.   itemFill:=ADR(ItemText[33]);
  437.   selectFill:=NIL;
  438.   subItem:=NIL;
  439. END (* WITH *);
  440.  
  441.  
  442. WITH ItemText[1] DO
  443.   nextText:=NIL;
  444.   frontPen:=0; backPen:=0;
  445.   drawMode:=jam1;
  446.   leftEdge:=0; topEdge:=0;
  447.   iTextFont:=NIL;
  448.   iText:=ADR('Load');
  449. END (* WITH *);
  450.  
  451. WITH ItemText[2] DO
  452.   nextText:=NIL;
  453.   frontPen:=0; backPen:=0;
  454.   drawMode:=jam1;
  455.   leftEdge:=0; topEdge:=0;
  456.   iTextFont:=NIL;
  457.   iText:=ADR('Save');
  458. END (* WITH *);
  459.  
  460. WITH ItemText[3] DO
  461.   nextText:=NIL;
  462.   frontPen:=0; backPen:=0;
  463.   drawMode:=jam1;
  464.   leftEdge:=0; topEdge:=0;
  465.   iTextFont:=NIL;
  466.   iText:=ADR('Save As');
  467. END (* WITH *);
  468.  
  469. WITH ItemText[4] DO
  470.   nextText:=NIL;
  471.   frontPen:=0; backPen:=0;
  472.   drawMode:=jam1;
  473.   leftEdge:=0; topEdge:=0;
  474.   iTextFont:=NIL;
  475.   iText:=ADR('New');
  476. END (* WITH *);
  477.  
  478. WITH ItemText[5] DO
  479.   nextText:=NIL;
  480.   frontPen:=0; backPen:=0;
  481.   drawMode:=jam1;
  482.   leftEdge:=0; topEdge:=0;
  483.   iTextFont:=NIL;
  484.   iText:=ADR('--------------');
  485. END (* WITH *);
  486.  
  487. WITH ItemText[6] DO
  488.   nextText:=NIL;
  489.   frontPen:=0; backPen:=0;
  490.   drawMode:=jam1;
  491.   leftEdge:=0; topEdge:=0;
  492.   iTextFont:=NIL;
  493.   iText:=ADR('MakeModule');
  494. END (* WITH *);
  495.  
  496. WITH ItemText[7] DO
  497.   nextText:=NIL;
  498.   frontPen:=0; backPen:=0;
  499.   drawMode:=jam1;
  500.   leftEdge:=0; topEdge:=0;
  501.   iTextFont:=NIL;
  502.   iText:=ADR('--------------');
  503. END (* WITH *);
  504.  
  505. WITH ItemText[8] DO
  506.   nextText:=NIL;
  507.   frontPen:=0; backPen:=0;
  508.   drawMode:=jam1;
  509.   leftEdge:=0; topEdge:=0;
  510.   iTextFont:=NIL;
  511.   iText:=ADR('QUIT        ESC');
  512. END (* WITH *);
  513.  
  514. WITH ItemText[9] DO
  515.   nextText:=NIL;
  516.   frontPen:=0; backPen:=0;
  517.   drawMode:=jam1;
  518.   leftEdge:=0; topEdge:=0;
  519.   iTextFont:=NIL;
  520.   iText:=ADR('Delete   F1');
  521. END (* WITH *);
  522.  
  523. WITH ItemText[10] DO
  524.   nextText:=NIL;
  525.   frontPen:=0; backPen:=0;
  526.   drawMode:=jam1;
  527.   leftEdge:=0; topEdge:=0;
  528.   iTextFont:=NIL;
  529.   iText:=ADR('Move     F2');
  530. END (* WITH *);
  531.  
  532. WITH ItemText[11] DO
  533.   nextText:=NIL;
  534.   frontPen:=0; backPen:=0;
  535.   drawMode:=jam1;
  536.   leftEdge:=0; topEdge:=0;
  537.   iTextFont:=NIL;
  538.   iText:=ADR('Copy     F3');
  539. END (* WITH *);
  540.  
  541. WITH ItemText[12] DO
  542.   nextText:=NIL;
  543.   frontPen:=0; backPen:=0;
  544.   drawMode:=jam1;
  545.   leftEdge:=0; topEdge:=0;
  546.   iTextFont:=NIL;
  547.   iText:=ADR('Size     F4');
  548. END (* WITH *);
  549.  
  550. WITH ItemText[13] DO
  551.   nextText:=NIL;
  552.   frontPen:=0; backPen:=0;
  553.   drawMode:=jam1;
  554.   leftEdge:=0; topEdge:=0;
  555.   iTextFont:=NIL;
  556.   iText:=ADR('Boolean');
  557. END (* WITH *);
  558.  
  559. WITH ItemText[14] DO
  560.   nextText:=NIL;
  561.   frontPen:=0; backPen:=0;
  562.   drawMode:=jam1;
  563.   leftEdge:=0; topEdge:=0;
  564.   iTextFont:=NIL;
  565.   iText:=ADR('Normal         B');
  566. END (* WITH *);
  567.  
  568. WITH ItemText[15] DO
  569.   nextText:=NIL;
  570.   frontPen:=0; backPen:=0;
  571.   drawMode:=jam1;
  572.   leftEdge:=0; topEdge:=0;
  573.   iTextFont:=NIL;
  574.   iText:=ADR('ToggleSelect   T');
  575. END (* WITH *);
  576.  
  577. WITH ItemText[16] DO
  578.   nextText:=NIL;
  579.   frontPen:=0; backPen:=0;
  580.   drawMode:=jam1;
  581.   leftEdge:=0; topEdge:=0;
  582.   iTextFont:=NIL;
  583.   iText:=ADR('String');
  584. END (* WITH *);
  585.  
  586. WITH ItemText[17] DO
  587.   nextText:=NIL;
  588.   frontPen:=0; backPen:=0;
  589.   drawMode:=jam1;
  590.   leftEdge:=0; topEdge:=0;
  591.   iTextFont:=NIL;
  592.   iText:=ADR('Normal       S');
  593. END (* WITH *);
  594.  
  595. WITH ItemText[18] DO
  596.   nextText:=NIL;
  597.   frontPen:=0; backPen:=0;
  598.   drawMode:=jam1;
  599.   leftEdge:=0; topEdge:=0;
  600.   iTextFont:=NIL;
  601.   iText:=ADR('Integer      I');
  602. END (* WITH *);
  603.  
  604. WITH ItemText[19] DO
  605.   nextText:=NIL;
  606.   frontPen:=0; backPen:=0;
  607.   drawMode:=jam1;
  608.   leftEdge:=0; topEdge:=0;
  609.   iTextFont:=NIL;
  610.   iText:=ADR('Proportional');
  611. END (* WITH *);
  612.  
  613. WITH ItemText[20] DO
  614.   nextText:=NIL;
  615.   frontPen:=0; backPen:=0;
  616.   drawMode:=jam1;
  617.   leftEdge:=0; topEdge:=0;
  618.   iTextFont:=NIL;
  619.   iText:=ADR('Horiz        X');
  620. END (* WITH *);
  621.  
  622. WITH ItemText[21] DO
  623.   nextText:=NIL;
  624.   frontPen:=0; backPen:=0;
  625.   drawMode:=jam1;
  626.   leftEdge:=0; topEdge:=0;
  627.   iTextFont:=NIL;
  628.   iText:=ADR('Vert         Y');
  629. END (* WITH *);
  630.  
  631. WITH ItemText[22] DO
  632.   nextText:=NIL;
  633.   frontPen:=0; backPen:=0;
  634.   drawMode:=jam1;
  635.   leftEdge:=0; topEdge:=0;
  636.   iTextFont:=NIL;
  637.   iText:=ADR('Both         Z');
  638. END (* WITH *);
  639.  
  640. WITH ItemText[23] DO
  641.   nextText:=NIL;
  642.   frontPen:=0; backPen:=0;
  643.   drawMode:=jam1;
  644.   leftEdge:=0; topEdge:=0;
  645.   iTextFont:=NIL;
  646.   iText:=ADR('Text              F9');
  647. END (* WITH *);
  648.  
  649. WITH ItemText[24] DO
  650.   nextText:=NIL;
  651.   frontPen:=0; backPen:=0;
  652.   drawMode:=jam1;
  653.   leftEdge:=0; topEdge:=0;
  654.   iTextFont:=NIL;
  655.   iText:=ADR('-----------------');
  656. END (* WITH *);
  657.  
  658. WITH ItemText[25] DO
  659.   nextText:=NIL;
  660.   frontPen:=0; backPen:=0;
  661.   drawMode:=jam1;
  662.   leftEdge:=0; topEdge:=0;
  663.   iTextFont:=NIL;
  664.   iText:=ADR('  No     Border');
  665. END (* WITH *);
  666.  
  667. WITH ItemText[26] DO
  668.   nextText:=NIL;
  669.   frontPen:=0; backPen:=0;
  670.   drawMode:=jam1;
  671.   leftEdge:=0; topEdge:=0;
  672.   iTextFont:=NIL;
  673.   iText:=ADR('  Single Border');
  674. END (* WITH *);
  675.  
  676. WITH ItemText[27] DO
  677.   nextText:=NIL;
  678.   frontPen:=0; backPen:=0;
  679.   drawMode:=jam1;
  680.   leftEdge:=0; topEdge:=0;
  681.   iTextFont:=NIL;
  682.   iText:=ADR('  Double Border');
  683. END (* WITH *);
  684.  
  685. WITH ItemText[28] DO
  686.   nextText:=NIL;
  687.   frontPen:=0; backPen:=0;
  688.   drawMode:=jam1;
  689.   leftEdge:=0; topEdge:=0;
  690.   iTextFont:=NIL;
  691.   iText:=ADR('-----------------');
  692. END (* WITH *);
  693.  
  694. WITH ItemText[29] DO
  695.   nextText:=NIL;
  696.   frontPen:=0; backPen:=0;
  697.   drawMode:=jam1;
  698.   leftEdge:=0; topEdge:=0;
  699.   iTextFont:=NIL;
  700.   iText:=ADR('  String Left');
  701. END (* WITH *);
  702.  
  703. WITH ItemText[30] DO
  704.   nextText:=NIL;
  705.   frontPen:=0; backPen:=0;
  706.   drawMode:=jam1;
  707.   leftEdge:=0; topEdge:=0;
  708.   iTextFont:=NIL;
  709.   iText:=ADR('  String Center');
  710. END (* WITH *);
  711.  
  712. WITH ItemText[31] DO
  713.   nextText:=NIL;
  714.   frontPen:=0; backPen:=0;
  715.   drawMode:=jam1;
  716.   leftEdge:=0; topEdge:=0;
  717.   iTextFont:=NIL;
  718.   iText:=ADR('  String Right');
  719. END (* WITH *);
  720.  
  721. WITH ItemText[32] DO
  722.   nextText:=NIL;
  723.   frontPen:=0; backPen:=0;
  724.   drawMode:=jam1;
  725.   leftEdge:=0; topEdge:=0;
  726.   iTextFont:=NIL;
  727.   iText:=ADR('-----------------');
  728. END (* WITH *);
  729.  
  730. WITH ItemText[33] DO
  731.   nextText:=NIL;
  732.   frontPen:=0; backPen:=0;
  733.   drawMode:=jam1;
  734.   leftEdge:=0; topEdge:=0;
  735.   iTextFont:=NIL;
  736.   iText:=ADR('Change Attributes F10');
  737. END (* WITH *);
  738.  
  739. MenuWindowPtr := WPtr;
  740. ok:=SetMenuStrip(MenuWindowPtr,ADR(Menustrip[1]) );
  741.  
  742. END InitMenu;
  743.  
  744. (*--------------------------------------------------------------------------*)
  745.  
  746. PROCEDURE SetMenu (WPtr : ADDRESS);
  747. (* Menu einschalten *)
  748. VAR w  : WindowPtr;
  749.     ok : BOOLEAN;
  750. BEGIN
  751.  w := WPtr;
  752.  ok:=SetMenuStrip(w,ADR(Menustrip[1]));
  753. END SetMenu;
  754.  
  755. (*--------------------------------------------------------------------------*)
  756.  
  757. PROCEDURE ClearMenu (WPtr : ADDRESS);
  758. (* Menu ausschalten *)
  759. VAR w  : WindowPtr;
  760. BEGIN
  761.  w := WPtr;
  762.  ClearMenuStrip(w);
  763. END ClearMenu;
  764.  
  765. END Menu.
  766.